home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / print hint (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  380b  |  11 lines
  1. 10 REM FRAMEMAKER....ELIZABETH DEAL
  2. 20 F$=CHR$(157)+CHR$(148)
  3. 30 TB$="***************************************":REM 39* IN ""
  4. 35 TB$=TB$+CHR$(145)+CHR$(13)+CHR$(148)+"*"
  5. 40 MD$="*                                     *"+F$:REM *,37 SPACES,* IN ""
  6. 50 PRINTTB$:REM TOP LINE
  7. 60 FOR J=1 TO 23:PRINTMD$:NEXT J:REM MIDDLE
  8. 70 PRINTTB$;"";:REM BOTTOM
  9. 80 REM HOME IS USEFUL FROM BOTTOM LINE
  10. 90 PRINT"LINES":REM 5 DOWN IN ""
  11.